home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / Paginate.xdme < prev    next >
Text File  |  1995-08-23  |  943b  |  41 lines
  1. /* $VER: Paginate.xdme 1.1 (23 Aug 1995) */
  2. /* Copyright © 1995 Fergus Duniho */
  3. /* Part of the XDME Excelsior Suite by Fergus Duniho */
  4. /* Paginates the current file, using the values set in the Print
  5. ** GUI, and puts the output in File */
  6.  
  7. PARSE ARG File
  8. writeto 'T:Text'
  9. ADDRESS Command "protect T:Text +rwd"
  10. ADDRESS 'XDME.1'
  11. OPTIONS RESULTS
  12. hf = GetVal("$_hf")
  13. h0 = GetVal("$_h0")
  14. h1 = GetVal("$_h1")
  15. ff = GetVal("$_ff")
  16. f0 = GetVal("$_f0")
  17. f1 = GetVal("$_f1")
  18. N = GetVal("$_N")
  19. t = GetVal("$_t")
  20. b = GetVal("$_b")
  21. p = GetVal("$_p")
  22. l = GetVal("$_l")
  23. r = GetVal("$_r")
  24. Tl = GetVal("$_Tl")
  25.  
  26. headers = '-hf "'hf'" -h0 "'h0'" -h1 "'h1'"'
  27. footers = '-ff "'ff'" -f0 "'f0'" -f1 "'f1'"'
  28. misc = '-t' t '-b' b '-l' l '-r' r '-N "'N'" -p' p '-T' Tl
  29.  
  30. Com = "Paginate <T:Text >"File headers footers misc
  31. ADDRESS Command Com
  32. CALL Delete 'T:Text'
  33. EXIT
  34.  
  35. GetVal:
  36. PARSE ARG v
  37. xcom = "rxresult" v
  38. xcom
  39. IF result = "RESULT" THEN return ""
  40. ELSE RETURN result
  41.